﻿Imports DNP.GestionComercial.DAL
Public Class ProductoBL


    Public Function GuardarProducto(ByVal pObjeto As ProductoBE) As RespuestaBE
        Dim odlObjeto As New ProductoDAL
        Return odlObjeto.GuardarProducto(pObjeto)
    End Function
    Public Function EliminarProducto(ByVal pObjeto As PARAMETROBE) As RespuestaBE
        Dim odlObjeto As New ProductoDAL
        Return odlObjeto.EliminarProducto(pObjeto)
    End Function
    Public Function listarProducto(ByVal pParametro As PARAMETROBE) As RespuestaBE
        Dim odlObjeto As New ProductoDAL
        Return odlObjeto.listarProducto(pParametro)
    End Function
    Public Function listarProductoxCodigo(ByVal pcodigo As String) As RespuestaBE
        Dim odlObjeto As New ProductoDAL
        Return odlObjeto.listarProductoxCodigo(pcodigo)
    End Function
    Public Function listarSubProducto(ByVal pcodigo As String) As RespuestaBE
        Dim odlObjeto As New ProductoDAL
        Return odlObjeto.listarSubProducto(pcodigo)
    End Function

    Public Function ObtenerPrecio(ByVal pParametro As PARAMETROBE) As RespuestaBE
        Return New ProductoDAL().ObtenerPrecio(pParametro)
    End Function

    Public Function listarProductoxCodigoBarra(ByVal pcodigo As String) As RespuestaBE
        Dim odlObjeto As New ProductoDAL
        Return odlObjeto.listarProductoxCodigoBarra(pcodigo)
    End Function

End Class
